Almathera Ten Pack 3: CDPD 3/Almathera Ten on Ten - Disc 3: CDPD3.iso/scope/076-100/scopedisk85/ultracarddemo/controlroom

UltraCard Stack | 1995-03-19 | 108KB | 967 lines

-- Select Handlers for this object
Select:
play "ram:swoosh1"
say "You can create a new frame !
like the stacks frame and install!
 your favorite programs.  Then !
auto link the new frame to this !
button"
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ram:swoosh1
You can create a new frame like the stacks frame and install your favorite programs.  Then auto link the new frame to this button
-- Select Handlers for this object
Select:
play "ram:swoosh1"
put 8 into visual.effect
put 32 into effect.amount
put 10 into effect.speed
JUMP TO next with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ram:swoosh1
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEED
EFFECT
-- Select Handlers for this object
Select:
say "Call the Intuitive Technologies !
B B S at 408 646 9260 for more stacks!"
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
Call the Intuitive Technologies B B S at 408 646 9260 for more stacks!
-- Select Handlers for this object
Select:
put 4 into visual.effect
put 4 into effect.amount
put 10 into effect.speed
jump to frame 4 with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEED
FRAME
EFFECT
ILBMBMHD
 p  P
ge')
H14';
qa s
\p|p\p
(~0| r
"Ji9k
BACKDROP.1
FRAME.1
Programs
Diamond 12
Stacks
Diamond 12
Ideas!
Diamond 12
More...
HDiamond 12
-- Select Handlers for this object
Select:
show.msg "Pick a file name from",!
"the selector or close the ",!
"selector window."
get.file.name from "ultra:stacks"
if it is "NO_FILE"
return 0
endif
jump to frame id 1 of it
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
SHOWMSG
Pick a file name from
the selector or close the
selector window.
GETFILENAME
ultra:stacks
NO_FILE
RETURN
ENDIF
FRAME
-- Select Handlers for this object
Select:
play "ram:swoosh2"
JUMP TO 1 !
OF STACK "UltraDex"
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ram:swoosh2
STACK
UltraDex
-- Select Handlers for this object
Select:
say "Select a stack by clicking on the button with the mouse"
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
Select a stack by clicking on the button with the mouse
-- Select Handlers for this object
Select:
play "ram:swoosh2"
JUMP TO 1 !
OF STACK "help"
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ram:swoosh2
STACK
-- Select Handlers for this object
Select:
play "ram:swoosh2"
JUMP TO 1 !
OF STACK "Calendar"
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ram:swoosh2
STACK
Calendar
-- Select Handlers for this object
Select:
put 9 into visual.effect
jump back with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
VISUALEFFECT
EFFECT
ILBMBMHD
 p  P
&!0L
 +L'?
5F55Q
5f55y
,e,,abX
,e,,mbX
]-*QRT
!D!!A
!D!!A
-Ij[R
`,``+
h-hh+@
`,``#
hmhhkB
hmhhkB
++    XV
++    XV
=KIKOFZ
=OIjZ3
=KIKOFZ
zOGFZ
zOGFZ
amiasJ
`+    XV
`+    XV
ChhkB
ChhkB
o-oo3z
Ah(+@
-KijZ
-KiKKRZ
*e+*QRT
c,`abX
c,lmbX
:F::I
BACKDROP.2
FRAME.2
Open...
`Diamond 12
Ultradex
Diamond 12
Select-A-Stack
Diamond 20
Diamond 12
Calendar
Diamond 12
OBJECT.3560
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
-- Select Handlers for this object
Select:
answer "Ready to set Pathways?" !
 with " Yes " , " No "
if it is 0
show.msg "Edit the multi-line !
object ", !
"below and then click on this", !
"button again and pick YES to", !
"set the search paths that",!
"UltraCard should use when",!
"looking for a stack."
return
endif
put pathways.object into pathways
show.msg "Pathways set."
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ANSWER
Ready to set Pathways?
 Yes
SHOWMSG
Edit the multi-line object
below and then click on this
button again and pick YES to
set the search paths that
UltraCard should use when
looking for a stack.
RETURN
ENDIF
PATHWAYSOBJECT
PATHWAYS
SHOWMSG
Pathways set.
-- Select Handlers for this object
Select:
put 9 into visual.effect
jump back with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
VISUALEFFECT
EFFECT
-- Select Handlers for this object
Select:
ask.value prompt "Name of External Paint?" initial paint
put it into paint -- global var
say "Thank you. Name of paint is now " && paint
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ASKVALUE
PROMPT
Name of External Paint?
INITIAL
PAINT
PAINT
Thank you. Name of paint is now
PAINT
-- Select Handlers for this object
Select:
ask.value prompt "Name of ARexx runner?" initial external.scripter
put it into external.scripter -- global var
say "Thank you. Name of Ay Rexx Runner is now " && external.scripter
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ASKVALUE
PROMPT
Name of ARexx runner?
INITIAL
EXTERNALSCRIPTER
EXTERNALSCRIPTER
Thank you. Name of Ay Rexx Runner is now
EXTERNALSCRIPTER
-- Select Handlers for this object
Select:
ask.value prompt "Name of External Editor?" initial editor
put it into editor -- global var
say "Thank you. Name of Editor is now " && editor
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ASKVALUE
PROMPT
Name of External Editor?
INITIAL
EDITOR
EDITOR
Thank you. Name of Editor is now
EDITOR
3FRAME.3
Pathways.Object
Ultra:Stacks
Ultra:
Pathways
Diamond 12
PATHWAYSOBJECT
OBJECT.960
Paint:
Diamond 12
spritz:spritz
ARexx:
PDiamond 12
Editor:
hDiamond 12
Frame.Entry:
put 8 into visual.effect
put 32 into effect.amount
put 10 into effect.speec
End_Frame.Entry
Frame.Exit:
End_Frame.Exit
Click.Up:
End_Click.Up
Frame.Entry
Frame.Exit
Click.Up
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEEC
-- Select Handlers for this object
Select:
JUMP TO FRAME 5 with effect
End_Sele
Select.Down:
End_Select.Down
Select
Select.Down
FRAME
EFFECT
-- Select Handlers for this object
Select:
jump to frame 7 with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
FRAME
EFFECT
-- Select Handlers for this object
Select:
JUMP TO FRAME 3 with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
FRAME
EFFECT
-- Select Handlers for this object
Select:
JUMP TO FRAME 6 with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
FRAME
EFFECT
-- Select Handlers for this object
Select:
jump back with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
EFFECT
FRAME.4
OBJECT.2819
Garnet 9
Getting Started
OBJECT.2820
PTopaz 8
Using ARexx
OBJECT.2821
Diamond 12
Even More...
OBJECT.2822
 Opal 9
Creating Stacks
OBJECT.2956
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
arrow2:
:loop:
get the top.line of object(me)
set the top.line of object(me) !
to it +1
if still.down
goto loop
endif
end_arrow2
arrow1:
:loop:
get the top.line of object(me)
set the top.line of object(me) !
to it -1
if still.down
goto loop
endif
end_arrow1
Select
Select.Down
arrow2
arrow1
:LOOP:
TOPLINE
TOPLINE
ENDIF
:LOOP:
TOPLINE
TOPLINE
ENDIF
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
-- Select Handlers for this object
Select:
put 9 into visual.effect
jump back with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
VISUALEFFECT
EFFECT
-- Select Handlers for this object
Select:
answer "Print info?" with " Yes " , " No "
if it is 0
return
endif
answer "Printer Ready?" with " Yes " , " No "
if it is 0
return
endif
open.file "prt:" output
write.file it from text.area
close.file it
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ANSWER
Print info?
 Yes
RETURN
ENDIF
ANSWER
Printer Ready?
 Yes
RETURN
ENDIF
OPENFILE
OUTPUT
WRITEFILE
TEXTAREA
CLOSEFILE
qFRAME.5
TEXT.AREA
-While you have already begun to use UltraCard this frame !
contains information about how to use the stacks provided !
and how to configure your system.
ABOUT ULTRA:
------------
One of the first things you will notice is that UltraCard !
is looking for a "disk" called "ULTRA:".  This can either !
be a physical disk (such as a floppy named ULTRA) or !
a logical assignment made with the following CLI command:
(Example!)
ASSIGN ULTRA: DH0:
Assuming you have put your STACKS directory on the root !
directory of DH0:
From then on AmigaDOS will look at DH0: for references to !
ULTRA:.
STACK SIZE
----------
UltraCard must have at least a 10,000 byte stack.  If you !
want to run UltraCard from the CLI you must set your stack !
size to 10k (or larger) by using the CLI command:
STACK 10000
-- END --
Getting Started
pDiamond 12
OBJECT.2958
Print
.3760
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
-- Select Handlers for this object
Select:
put 9 into visual.effect
jump back with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
VISUALEFFECT
EFFECT
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
arrow2:
:loop:
get the top.line of object(me)
set the top.line of object(me) !
to it +1
if still.down
goto loop
endif
end_arrow2
arrow1:
:loop:
get the top.line of object(me)
set the top.line of object(me) !
to it -1
if still.down
goto loop
endif
end_arrow1
Select
Select.Down
arrow2
arrow1
:LOOP:
TOPLINE
TOPLINE
ENDIF
:LOOP:
TOPLINE
TOPLINE
ENDIF
-- Select Handlers for this object
Select:
answer "Print info?" with " Yes " , " No "
if it is 0
return
endif
answer "Printer Ready?" with " Yes " , " No "
if it is 0
return
endif
open.file "prt:" output
write.file it from text.area
close.file it
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ANSWER
Print info?
 Yes
RETURN
ENDIF
ANSWER
Printer Ready?
 Yes
RETURN
ENDIF
OPENFILE
OUTPUT
WRITEFILE
TEXTAREA
CLOSEFILE
qFRAME.6
Creating Stacks
(Diamond 12
OBJECT.2960
Text.area
    aTo create a stack (in the production version only) you !
simply select NEW STACK from the Project menu.  You !
will be asked to select a name for the stack and then !
you will be prompted for the size (resolution) and the !
number of colors (depth) that you wish to use.
For example, the ControlRoom stack is 320 x 200 (resolution) !
and 32 colors (5 bit planes of depth).  You should use higher !
resolution when you have many objects or lots of text and the !
lower resolution when your information requires lots of colors.
Once you have specified the resolution and clicked on the !
OK button the new stack is created and the empty backdrop picture !
is saved.  You may then begin adding objects, loading backdrop !
pictures and using creating your stack.
To begin adding objects you select the MODIFY... menu item or !
press the F2 key.
Then select NEW from the EDIT menu or press the ESC key which !
turns the cursor into a cross-hairs.  Once you have the cross !
hair cursor on the screen you click and drag a rectangle the !
size you wish your object to be.  While dragging, BEFORE YOU LET !
THE MOUSE BUTTON UP, you may hold down the LEFT shift key and !
the rectangle will move around the screen rather than change !
size.  This can be very useful for aligning objects on top of !
an existing picture or relative to another object.
When you are done dragging the rectangle let up on the mouse button !
and the object is created.  You may then modifiy its attributes !
by picking from the PROPERTIES menu.
You can edit the action script for an object by double clicking !
on the object or by selecting SCRIPT from the PROPERTIES menu.
You can examine the scripts for stacks such as this one by entering !
modify mode and then editing the script for the object.  You begin !
by selecting the object with the mouse which will draw a dotted !
line around the current selection.
Feel free to borrow scripts from the stacks supplied by Intuitive !
Technologies as they are there for you to use.  Before you use !
scripts from someone else's stack please check with the stack !
author first so that no copyrights are violated.
After creating the objects press F1 to return to BROWSE mode to !
begin using the stack.
To add new frames pick from the FRAME item in the BROWSE mode !
edit menu.
To insert a backdrop picture pick IFF IMPORT from the EDIT menu !
in MODIFY MODE.
-- END --
Print
.3756
-- Select Handlers for this object
Select:
answer "Print info?" with " Yes " , " No "
if it is 0
return
endif
answer "Printer Ready?" with " Yes " , " No "
if it is 0
return
endif
open.file "prt:" output
write.file it from text.area
close.file it
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
ANSWER
Print info?
 Yes
RETURN
ENDIF
ANSWER
Printer Ready?
 Yes
RETURN
ENDIF
OPENFILE
OUTPUT
WRITEFILE
TEXTAREA
CLOSEFILE
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
-- Select Handlers for this object
Select:
put 9 into visual.effect
jump back with effect
End_Select
Select.Down:
End_Select.Down
Select
Select.Down
VISUALEFFECT
EFFECT
-- Select Handlers for this object
Select:
End_Select
Select.Down:
End_Select.Down
arrow2:
:loop:
get the top.line of object(me)
set the top.line of object(me) !
to it +1
if still.down
goto loop
endif
end_arrow2
arrow1:
:loop:
get the top.line of object(me)
set the top.line of object(me) !
to it -1
if still.down
goto loop
endif
end_arrow1
Select
Select.Down
arrow2
arrow1
:LOOP:
TOPLINE
TOPLINE
ENDIF
:LOOP:
TOPLINE
TOPLINE
ENDIF
(FRAME.7
Print
.3752
Using ARexx
pDiamond 12
OBJECT.3111
text.area
ARexx is a product which allows multiple programs running
on the Amiga to talk to each other.
UltraCard is an ideal way to create a friendly user interface !
for ARexx.  You can create buttons which start previously recorded !
ARexx scripts. Or you can actually embed the ARexx script inside the !
UltraTalk script for the button.
To run an previously recorded ARexx script simply make the !
script for an object read:
------------------------------
Select:
AREXX FROM viewpic.rexx
END_Select
------------------------------
(Viewpic.rexx is an example ARexx !
script from Steve Gillmor's June !
1989 Amazing Computing.)
To create an ARexx script inside a button's script you enclose !
the ARexx statements inbetween a "#BEGIN" and a "#END" line:
------------------------------
Select:
-- first create the ARexx prog
#BEGIN
/* ARexx program in a script */
ADDRESS PLANIT
'new.wks()'
'select(a1:a50)'
'analyze("FIRST CELL")'
'save.wks(":WORKSHEETS/MYSHEET")'
-- then run it!
AREXX
END_Select
------------------------------
ARexx is a product supplied by a third-party named:
William S. Hawes
P.O. Box 308
Maynard MA 01754
[phone]
-- END --
Stack.Entry:
-- Use the CHAT window to
-- change these values so
-- that you can see the other
-- visual effects.
-- Simply type, into the chat
-- window:
--  "PUT <n> into ???.effect"
-- and then press F6 (to make
-- the CHAT window go away and
-- then press the arrow key whose
-- effect you changed.
-- Have Fun.
-- There are 11 effects numbered
-- 1 through 11.
global up.effect
global down.effect
global right.effect
global left.effect
put 2 into up.effect
put 5 into left.effect
put 4 into right.effect
put 3 into down.effect
End_StackEntry
Stack.Exit:
End_StackExit
Click.Up:
End_ClickUp
Up.Arrow:
if in.modify
return
endif
put up.effect into visual.effect
put 8 into effect.amount
put 9 into effect.speed
jump first with effect
end_up.arrow
Left.Arrow:
if in.modify
return
endif
put left.effect into visual.effect
put 8 into effect.amount
put 10 into effect.speed
jump prev with effect
end_up.arrow
Right.Arrow:
if in.modify
return
endif
put right.effect into visual.effect
put 8 into effect.amount
put 10 into effect.speed
jump next with effect
end_up.arrow
Down.Arrow:
if in.modify
return
endif
put down.effect into visual.effect
put 8 into effect.amount
put 9 into effect.speed
jump last with effect
end_up.arrow
Stack.Entry
Stack.Exit
^Click.Up
iUp.Arrow
tLeft.Arrow
JRight.Arrow
"Down.Arrow
GLOBAL
UPEFFECT
GLOBAL
DOWNEFFECT
GLOBAL
RIGHTEFFECT
GLOBAL
LEFTEFFECT
UPEFFECT
LEFTEFFECT
RIGHTEFFECT
DOWNEFFECT
INMODIFY
RETURN
ENDIF
UPEFFECT
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEED
FIRST
EFFECT
INMODIFY
RETURN
ENDIF
LEFTEFFECT
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEED
EFFECT
INMODIFY
RETURN
ENDIF
RIGHTEFFECT
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEED
EFFECT
INMODIFY
RETURN
ENDIF
DOWNEFFECT
VISUALEFFECT
EFFECTAMOUNT
EFFECTSPEED
EFFECT
(LASTDATE
ULTRATALKCHAT
put 10 into the up.effect
TheFGPen
WIDTHADJUST
CANTMODIFY
INMODIFY
HEIGHTADJUST
TheBGPen
TheDrawMode
TheTextPen
    ETheFont
TheFont
Topaz 8
BoldStyle
ItalicStyle
UnderlineStyle
DATACURSOR
FALSE
MOUSEX
MOUSEY
SHIFTKEY
ALTKEY
CONTROLKEY
TheDate
ETheDay
TheDay
ETheDayOfTheWeek
TheDayOfTheWeek
    ETheTime
TheTime
    ETheYear
TheYear
ETheMonth
TheMonth
EEXTERNAL.SCRIPTER
EXTERNAL.SCRIPTER
C:RUN C:RX
EDITOR
PAINT
Spritz:Spritz
VISUAL.EFFECT
EFFECT.SPEED
EFFECT.AMOUNT
TABKEYOBJECT
65534
TARGET
SELECTION
FINDOBJECT
IOLENGTH
PATHWAYS
ULTRA:STACKS
ULTRA:
SOUNDSLOADED
UPEFFECT
DOWNEFFECT
RIGHTEFFECT
LEFTEFFECT